BEGIN {
  pos=match(jmeno, "[^/]*(.|/)$");        # ve jmene souboru/cesty najdi posledni cast
  basename=substr(jmeno,pos);             # ktera konci jakymkoli znakem nebo ')', pred nimz je cokoli krome '/'
  gsub("[^a-z0-9A-Z/.@+-]+", "_", basename);  # nahrad ve jmenu souboru nepovolene znaky podtrzitkem
  nove=substr(jmeno,1,pos-1) basename;      # vytvor znovu kompletni jmeno z cesty a souboru
  if (nove!=jmeno) system("mv \"" jmeno "\" \"" nove "\"");
}
